home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act8 / 00077.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  263 b   |  19 lines
  1. on sign ntemp
  2.   if ntemp > 0 then
  3.     return 1
  4.   else
  5.     if ntemp < 0 then
  6.       return -1
  7.     else
  8.       return 0
  9.     end if
  10.   end if
  11. end
  12.  
  13. on mydelay gor
  14.   set temptime to the timer
  15.   repeat while the timer < (temptime + gor)
  16.     updateStage()
  17.   end repeat
  18. end
  19.